;;get a string from I/O
;;if no parentheses then run a command else eval a lisp statement.

(load "in-loc.lisp")

(defun e(s &optional c) 
	(if (or (null c) (equal c 'insert)) 
	    (progn
		(setf com (format nil "echo \"~a\" >>default.lisp" s))
		(shell com))
	    (cond
		((equal (car c) 'loc) (in-loc s (1- (cadr c)) (1- (caddr c)) "default.lisp"))
		((equal (car c) 'match) (in-match s (cadr c) (caddr c)))
		(T			(return-from e nil)))))
	
		